home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / MakeBarXCMD r,c < prev    next >
Encoding:
Text File  |  1995-08-20  |  336 b   |  16 lines  |  [TEXT/ttxt]
  1. global rr:R
  2. global temp:R
  3.  
  4. on MakeBarXCMD r,c
  5.   put item 1 of r into h1
  6.   put item 2 of r into v1
  7.   put item 3 of r into h2
  8.   put item 4 of r into v2 -- convert text to numbers
  9.   getPenState temp
  10.   put thePort@.fgColor into temp2
  11.   ForeColor c
  12.   setRect rr,h1,v1,h2,v2
  13.   PaintRect rr
  14.   ForeColor temp2
  15.   setPenState temp
  16. end MakeBarXCMD